<script>on mouseDownput popObject( ) into popUpFieldif the optionKey is downthen movePopUp popUpFieldif the shiftKey is down thenanswer "Choose an operation:" with "Cancel" or "Delete" or "Rename" -- ∆if it is "Cancel" then exit mouseDown -- ∆if it is "Delete" then deletePopUp popUpField -- ∆else doNewNameelse hideShowPopUpend mouseDownon movePopUp popUpFieldput the loc of me into savedLocrepeat until the mouse is upif visible of popUpField thenlock screenset loc of me to the mouseLocset topLeft of popUpField to left of me,bottom of meunlock screenelse set loc of me to the mouseLocend repeatif the loc of me ≠ savedLoc then exit to hyperCardend movePopUpon hideShowPopUpput popObject() into popUpFieldset topLeft of popUpField to left of me,bottom of meset hilite of me to not hilite of melock screenset visible of popUpField to hilite of meunlock screen with dissolve very fastif visible of popUpField then select after text of popUpFieldend hideShowPopUpfunction popObjectput whichLayer( ) into cardOrBkgndput cardOrBkgnd && "field" && quote & ¬"Pop-up NoteFld" && the ID of me & quote into popUpField -- ∆return popUpFieldend popObjectfunction whichLayerif "bkgnd" is in the target then return "bkgnd"else return "card"end whichLayeron deletePopUp popUpFieldanswer "Delete the button and its pop-up field?" with "OK" or "Cancel" -- ∆if it ≠ "OK" then exit to hyperCard -- ∆set cursor to watchlock screenshow popUpFieldselect popUpFielddoMenu "Cut Field"select medoMenu "Cut Button"choose browse toolunlock screenend deletePopUpon doNewName cutButtonask "Enter a name for the new pop-up note:" with short name of me -- ∆if the result = "Cancel" then -- ∆if cutButton is "true"then doMenu "Cut Button" -- user changed mindexit to hyperCardend iflock screenput left of me into startLeftset width of me to (6 * length(it))set name of me to itset left of me to startLeftunlock screenif cutButton is not "true"then set topLeft of popObject() to left of me,bottom of meend doNewNameon newButtonset style of me to rectangleset textFont of me to genevaset textSize of me to 10set textAlign of me to centerdoNewName trueset hilite of me to trueset height of me to 15makeNewField -- create the pop-up fieldend newButtonon makeNewFieldlock screendoMenu "New Field"choose browse toolput word 1 of the long name of me into cardOrBkgndput "last" && cardOrBkgnd && "field" into popUpFieldset the style of popUpField to scrollingset the textFont of popUpField to genevaset the textSize of popUpField to 9set height of popUpField to 90set width of popUpField to 160set topLeft of popUpField to left of me,bottom of meset name of popUpField to "Pop-up NoteFld" && the ID of me -- ∆set script of popUpField to scriptBody()unlock screen with dissolveif visible of popUpField then select after text of popUpFieldend makeNewFieldfunction scriptBodyreturn "on enterInField" & return & "hide me" & return & ¬"send" && quote & "hideShowPopUp" & quote && "to" && ¬word 1 to 2 of the target && "id" && id of me & ¬return & "end enterInField"end scriptBody</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>187</left>
<top>170</top>
<right>222</right>
<bottom>187</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>pageLength</name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>187</left>
<top>147</top>
<right>222</right>
<bottom>164</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>pageWidth</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>6</left>
<top>23</top>
<right>256</right>
<bottom>240</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Pop-up NoteFld 4</name>
<script>on enterInFieldhide mesend "hideShowPopUp" to card button id 4end enterInField</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>231</left>
<top>2</top>
<right>254</right>
<bottom>22</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21700</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>on mouseUpgo homeend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>5</id>
<text><span class="style1">Covariation printer" is a utility which prints out very wide text files, such as those resulting from the "Covariation" program. Requires version 2.3.1 or higher of "Covariation".To use, just click on the "Start" button. After selecting the file to be printed, the program will automatically divide-up the file into 1-page units. The entire file can be put back together again simply by pasting the sheets together in the following pattern:</span><span class="style2"> +---+---+---+---+ | 1 | 5 | 9 | 13| +---+---+---+---+ | 2 | 6 | 10| 14| +---+---+---+---+ | 3 | 7 | 11| 15| +---+---+---+---+ | 4 | 8 | 12| 16| +---+---+---+---+The page width & page length settings are editable text fields - change them to fit your needs. On an ImageWriter at 100% size, you can use a width of 90 and a length of 80. At 50% size, use 180 and 160.</span></text>
(1994)[Mac].iso/Science/Biology/Covariation Folder/Covariation printer/BMAP_3697.png){kind=link}
(1994)[Mac].iso/Science/Biology/Covariation Folder/Covariation printer/PATs.png){kind=link}